home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00739_DE- bt bŽbte.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  2.6 KB  |  93 lines
  1. on mouseDown
  2.   global gBoutons, gNumSpr, gListBtDec, gEtudAct, g1erSprLoc
  3.   if gEtudAct = "mon" then
  4.     set fin to g1erSprLoc + 3
  5.   else
  6.     set fin to g1erSprLoc + 7
  7.   end if
  8.   set gNumSpr to 0
  9.   repeat with i = g1erSprLoc to fin
  10.     if rollOver(i) then
  11.       set gNumSpr to i
  12.       gBoutons(appuie, gNumSpr)
  13.       exit repeat
  14.     end if
  15.   end repeat
  16. end
  17.  
  18. on mouseUp
  19.   global gBoutons, gNumSpr, gListSuj, gSujet0, gBarChron, gMessDef1, gMessSty1, g1erSprLoc, g1erSprNav, gSprSel, gListBtDec, gListCod, gEtudAct
  20.   curseur(1)
  21.   if gEtudAct = "mon" then
  22.     set fin to g1erSprLoc + 3
  23.   else
  24.     set fin to g1erSprLoc + 7
  25.   end if
  26.   set monNumSpr to -2
  27.   repeat with i = g1erSprLoc to fin
  28.     if rollOver(i) then
  29.       set monNumSpr to i
  30.       exit repeat
  31.     end if
  32.   end repeat
  33.   if monNumSpr = gNumSpr then
  34.     MouseClick()
  35.   else
  36.     pass()
  37.   end if
  38. end
  39.  
  40. on MouseClick
  41.   global gNumSpr, gSprSel, gBoutons, gBarChron, g1erSprLoc, g1erSprNav, gSurvolPrec, gListSuj, gListCod, gSujet0, gMessDef1, gMessSty1, gEtudAct
  42.   if not (the doubleClick) then
  43.     if (gNumSpr = 22) and (gEtudAct = "eur") then
  44.       curseur(6)
  45.       if gSprSel <> 0 then
  46.         gBoutons(relache, gSprSel)
  47.       end if
  48.       set gSprSel to gNumSpr
  49.       set moncod to word 1 of the name of cast the castNum of sprite gNumSpr
  50.       set monNumSuj to getPos(gListCod, moncod)
  51.       set gSujet0 to getAt(gListSuj, monNumSuj)
  52.       set gMessDef1 to gSujet0(Le_Nom)
  53.       if word 1 of gMessDef1 <> "Homo" then
  54.         set gMessDef1 to word 1 of gMessDef1
  55.       end if
  56.       set epok to gSujet0(Le_Epoque)
  57.       gBarChron(fleche, 0, epok, 1)
  58.       gBarChron(fleche, 1, epok, 0)
  59.       set gMessSty1 to "bold,italic"
  60.       set the text of cast "Zone Info" to gMessDef1
  61.       set the textStyle of cast "Zone Info" to gMessSty1
  62.       set the visible of sprite (g1erSprLoc + 9) to 1
  63.       gBoutons(habille, g1erSprNav + 1, "SUJT 1")
  64.       set the visible of sprite (g1erSprNav + 1) to 1
  65.       if gSujet0(Le_Statut) = "A" then
  66.         gBoutons(habille, g1erSprNav + 2, "COMP 1")
  67.         set the visible of sprite (g1erSprNav + 2) to 1
  68.       else
  69.         set the visible of sprite (g1erSprNav + 2) to 0
  70.       end if
  71.       gBoutons(habille, g1erSprNav + 4, "PHYL 1")
  72.       set the visible of sprite (g1erSprNav + 4) to 1
  73.       updateStage()
  74.     else
  75.       beep()
  76.       gBoutons(relache, gNumSpr)
  77.       set gSurvolPrec to -1
  78.       curseur(1)
  79.     end if
  80.   else
  81.     if gSprSel = 22 then
  82.       MouseClick(script "DE:mps bt lec")
  83.     else
  84.       beep()
  85.       gBoutons(relache, gNumSpr)
  86.       set gSurvolPrec to -1
  87.       curseur(1)
  88.     end if
  89.   end if
  90.   curseur(-1)
  91.   set gSurvolPrec to -1
  92. end
  93.